<?php
App::import('Vendor','tcpdf/tcpdf');
App::import('Vendor','tcpdf/config/lang/eng.php');
App::import('Vendor', 'EnLetras', array('file' => 'EnLetras.class.php'));

$pdf = new TCPDF("P" ,'mm',"LETTER", true, 'UTF-8', false);
$pdf->setPrintHeader(false);
$pdf->setPrintFooter(false);
$V = new EnLetras();
$mes=$V->obtenerMes($cuenta['Account']['fecha_cuenta']);
$mes_inicio=$V->obtenerMes($cuenta['Account']['fecha_inicio']);
$mes_fin=$V->obtenerMes($cuenta['Account']['fecha_final']);
$mes_contrato=$V->obtenerMes($cuenta['Contract']['fecha']);
$numero=$cuenta['Contract']['numero'];
$pdf->SetFont('times', '', 12);
$pdf->SetMargins(30, 40, 30);
$pdf->AddPage();

$txt="Bogotá, $mes\n\n\n";
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='L', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$pdf->SetFont('times', 'B', 12);
$txt="INSTITUTO COLOMBIANO DE DESARROLLO RURAL – INCODER – \n\n\nDEBE A: \n";
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='C', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$txt=$cuenta['User']['nombre']." ".$cuenta['User']['primer_apellido']." ".$cuenta['User']['segundo_apellido']."\nC.C ".$cuenta['User']['cedula'];
$pdf->Write($h=0,  strtoupper( $txt), $link='', $fill=0, $align='C', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$pdf->SetFont('times', '', 12);
$valor_total=$adiciones+$cuenta['Account']['monto'];
$valor_total_txt='$' . number_format($adiciones+$cuenta['Account']['monto'], 0, ',', '.');;

$res = $V->ValorEnLetras($valor_total, "pesos");

$txt="\n\nLa suma de  $res  ($valor_total_txt), por  concepto de prestación de servicios profesionales en la Subgerencia de Gestión y Desarrollo Productivo del Instituto Colombiano de Desarrollo Rural –INCODER-, según Contrato de Prestación de Servicios  No. $numero de $mes_contrato.\nLa presente cuenta de cobro correspondiente al periodo comprendido de $mes_inicio a $mes_fin.\n\nAtentamente,\n\n\n\n";
$pdf->Write($h=0, $txt, $link='', $fill=0, $align='J', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);
$pdf->SetFont('times', 'B', 12);
$txt="_______________________________________________\n".$cuenta['User']['nombre']." ".$cuenta['User']['primer_apellido']." ".$cuenta['User']['segundo_apellido']."\nC.C ".$cuenta['User']['cedula'];
$pdf->Write($h=0,  strtoupper( $txt), $link='', $fill=0, $align='L', $ln=true, $stretch=0, $firstline=false, $firstblock=false, $maxh=0);

$pdf->close();
$pdf->Output('file.pdf', 'I');
?>